N 
— 
=) 


6 15 


**F ILE**1D**DEADLOCK 
DODDDDDD EEEEEEEEEE AAAAAA DDDDDDDD LL 000000 cccccccc KK KK 
DDDDDDDD EEEEEEEEEE AAAAAA DDDDDDDD LL 000000 cccccccce =kKK KK 
DD DD EE AA AA DD DD LL 00 oo CC KK KK 
DD DD EE AA AA DD DD LL 00 oo CC KK KK 
DD DD EE AA AA DD DDB LL 00 oo cc KK KK 
DD DD EE AA AA DD DD LL 00 oo CC KK K 
dD DD EEEEEEEE AA AA DD DD LL 00 oo cc KKKKKK 
DD DD EEEEEEEE AA AA 0D DD LL 00 oo cc KKKKKK 
DD DD EE AAAAAAAAAA DD DD LL 00 oo CC KK KK 
DD DD EE AAAAAAAAAA DD DDB LL 00 00 CC KK KK 
DD DD EE AA AA DD DD LL 00 00 cc KK KK eoee 
DD DD EE AA AA DD DD LL 00 oo cc KK KK cece 
DDDDDDDD EEEEEEEEEE AA AA DDDDDDDD LLLLLLLLLL 000000 CcCCCCCC SOKK KK cove 
DDDDDDDD EEEEEEEEEE AA AA DDDDDDDD LLLLLLLLLL 000000 cccccccc =KK KK coos 
LL III SSSSSSSS 
LL IIIT] SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL Il SS 
LL I] SS ‘ 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 
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-TITLE DEADLOCK = DEADLOCK DETECTION AND RESOLUTION 
- IDENT Pi0e=000" 


MARARAAAASARAAALALASLALALL ASAE SALES SSE SAS REE E EERE RSE REAR REESE ERE EER SY 


v03-012 SRB0130 Steve Beckhardt 18-May-1984 
Added supper’ for LCKS$M_NODLCKBLK flag and fixed bug 
with LCKSM_NODLCKWT flag. 


v03-011 SRBO122 Steve Beckhardt 30-Apr-1984 
Fixed bug where local dequeue counter was going negative. 
Fixed bug where deadlock searches were started during 
state changes. 


v03-010 $RBO0117 Steve Beckhardt 9-Apr-1984 
Added support for LCKSM_NODLCKWT flag. 
Fixed bug where R9 was not preserved in LCKSDEQLOCK. 
Added support for threads waiting for pool inserting 
structures on the time out queue. 


COOOCOSOCCOCOCSOSOSOOOOOooooo 


: 
000 ; 
BEE 
0 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
00 3* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
88 8 ‘* ALL RIGHTS RESERVED. - 
Ps oa 
44 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
it 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE x 
888 1 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI F * 
000 135 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PE - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1? - TRANSFERRED. * 
Py ra 
0000 i$ 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 i CORPORATION. e 
$ ® 
0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0000 3* * 
0000 4 ;* x 
444 2 SERRA RAAT AREA AAA AAA EAA AAA AAA AAA AAA AAA AAAAAAAAREAAA AAT AAAeAATA eee eee 
0000 27 34+ 
944 : ; FACILITY: EXECUTIVE, SYSTEM SERVICES 
000 0 ; ABSTRACT: 
000 1 This module implements deadlock detection (and resolution) 
it 3 for the VMS Lock manager system services (SENQ and $DEQ). 
4 : ; ENVIRONMENT: VAX/VMS 
44 § ; AUTHOR: Steve Beckhardt, CREATION DATE: 15-Jul-1981 
B88 3 ; MODIFIED BY: 
000 40 v03-013 SRB0150 Steve Beckhardt 21-Aug-1984 
B88 re Cleared R9 prior to checking for conversion deadlocks. 
000 ‘8 
4 
Bi 
3 
00048 
0 0 
83 
8 
gan} 


Ooooooooooo 
Soooooeoeo 


ooooo 


J 15 
DEADLOCK = DEA “SEP- - 
aya 4 DEADLOCK DETECTION AND RESOLUTION % SEP 138% 33: 2:59:13 VAX/VMS Macro v04-00 Page 9) 


V03-003 ROW0168 Ralph 0. Weber 3-MAR-1983 
Change external data references to G*. 
v03-002 DWT0055 David Thiel 18-Jul-1982 


Use L* mode for external retwrenel to 
SCHSGL _PCBVEC. 


v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added $SSDEF. 


-SEP-19 41:11 SYS.SRCIJDEADLOCK.MAR; 1 
28 3 v03-009 $RB0115 Steve Beckhardt 5-Mar-1984 
26 : Added support for distributed deadlock detection. 
61: v03-008 Ly0081 Larry Yetto 10-FEB-1984 09:52 
86 : ix truncation errors 
64; v03-007 SRBO1 st sxe Beckhardt 9-Sep-1983 
38 o? : ety bos in SRBO1 
88 : v03-006 $RB0100 Steve Beckhardt 15-Jul-1983 
68 ; Added code to eilen local ys BF detection to work 
09 $3 : n a cluster. 
900 71; v03-005 SRB0080 Steve Beckhardt 5-Apr-1983 
0 ie 3 Changed code for handlin coqueuing deadlock victim 
44 t ; to use new support in LCKSDE 
000 75: V03-004 $RB0073 Steve Beckhardt 25-Mar-1983 
000 76 ; Added code to clear a register before calling LCKSDEQLOCK 
44 aA : as a result of changes to support cancelling lock requests. 
000 79: 
000 80 ; 
ae 
000 Hd : 
000 84 ; 
000 a 3 
000 86 ; 
000 87 ; 
000 88 ; 


SOoQooooooooooooooo: 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 


: EXTERNAL SYMBOLS: 


Conditional assembly switches 
Cluster message offsets 

CLUB offsets 

Structure type code definitions 
LCK definitions 

LKB offsets 

PCB offsets 

RSB offsets 

System status code definitions 


DEF 
F 


PAPRAPAAARHASM 
ODT T—OOOO 
NYNOKO< eye 
C[mMOwaxzcCuwo 
mocovcl@amzmm 
NMmMmMmMmmo wa" 
nH HMM 


> MACROS: 


t EQUATED SYMBOLS: 


00000018 LOCKFRAME = 24 Number of bytes pushed onto 

stack for each recursive call 

of LCKSSRCH_RESDLCK (5 registers 
plus return address). This 
cannot be charges without making 


corresponding coding changes 


: OWN STORAGE: 


RIMINPIPININININID) 4 2 PP I HF MQOOODOOOOCOCOOCOOOOOOOOOO 


CONAUES WN © OO NOUS WIN 9 OD NOAM EWN 0 OD NAUE WO 


a ae a 8d tt 2 


-PSECT LOCKMGR 
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-SBTTL LCKSSEARCHDLCK = Search and break deadlocks 


p++ 
; FUNCTIONAL DESCRIPTION: 


This routine is the fop level routine for identifying and resolving 
deadlocks. Identifying deadlocks is performed by two separate 
routines. One identifies conversion deadlocks (is only called 

f this request is a conversion) and the other identifies multiple 
resource deadlocks. When a deadlock is found, one of the locks 
forming the deadlock is selected as the ‘victim’. This lock 
receives the status SS$_DEADLOCK in its LKSB and the lock request 

is denied. Multiple deadlocks are handled in the following way. 
This routine quits after it finds and breaks one deadlock. However 

in this case, if the original lock (R6) is not the victim, then it js 
not removed from the Lock timeout queue. The next time that the 
timeout queue is examined this lock will again be searched for 
deadlock. This is repeated until either no deadlock is found for this 
lock or it is taken off the timer queue for another reason (for 
example, it gets granted). 


DOOOoooco 


OOOQOCOCOCCCOOCOoOoOoOoOoOoooo 


ODoOoOooocoo 


polo fo loloflololelolololeo!) 
OOOQOOCOOooOoCooo 


000 
0000 This routine also must handle several instances where structures 
0000 having nothing to do with deadlock searching have been placed 

o8 on the time out queve. These structures represent instances 

0 in the distributed lock manager where a message needed to be 
0000 sent but pool could not be allocated. Since, in general, the 


structures could not accomodate a fork block, they are instead 


robin on the time out queue where here we resume the thread 
44 of execution. 

0000 CALLING SEQUENCE: 

0000 

4 BSBW LCKSSEARCHDLCK 

8 INPUT PARAMETERS: 

00 R6 Address of LKB to determine if in deadlock cycle 


This should either be a local or master copy lock. 
This may also be a RSB waiting for pool to send a message. 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO - R4 are destroyed 


Ss 


COOoOQooooooo 
sss 
AOS FQOOOOCOOCOCOCOCOSOSOOOoCoOoo 


ODoOoOoOoooooooosoo 


SoooooSo 


LCKSSEARCHDLCK:: 
PUSHR 


OFEO 8F #°M<RS,R6,R7,RB,RI.RI0,R11> 
00000000" ¢F TSTB GeLCKSGB_STALLREGS ; Don't start a search if we are 
4 BLSS $ ; in the middle of a state change 


5$: ; Handle structures that need to resume threads waiting for pool. 
MOVL R6,R7 ; Save address of structure 


DAE AR @ O OD NAN WIN OOOO NAME WN = SO OD NAME WO OD NAUSEA 0 OONOUE WN Oo 


=) 

So 

oO 

oO 
me ee ea dk at ts ot ot 3 4 2 St — = 8 ss 2 8 2 Ss 2 — — td ss 2 SS YY am 
CO.0909 090909 09 SINNED DDD UT BS BB BE BB BE WANNA OK 
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te fy LCKSSEARCHOLCK = Search and break _ mit 4 83; 241: i {SYS SRCTDEADLOCK MAR: 1 re (3) ve 
OA AG 91 fF 187 CMPB LKBSB_TYPE(R6),- 3 this RSB? 
WY eA ee eee 
58 66 OF 1 190 REMQUE (R6),R8 : Yes remove it from the timeout queue 
1 191 3 and put RS& address in R8 
eaanadl «| 1 } 136 iss G_LCKSSND_AAVBIR ; Send a remove dir. entry message 
36 Ag 92 | 133 6$ art KBSB_STATE(R6) 3 is the lock granted? 
3 No 
4 €1 19 BBC #LKBSV_M 3; Yes, lock t b t 
19 2A A6 0 199 LKBSW_ sTATusc hg) 9$ pclae Racal nal acticin fi tence 
58 b0 8 A 138 MOVL LKBSL~RSB(R6) ,RB_ : Get RSB address 
QO000000'GF 16 —E 19 JSB ESP CKSEND GRANTED : Send a lock granted message 
57 00000000'GF | 8 4 0 7$ ay ec CkSGl_ TIMOUTQ,R7 : Is the same Structure back on the queue? 
: Yes, ex 
009 4 03D 0 BRid 60$ : No, try next structure 
0081 1 z 8$ BRW LCKSOLCKEXIT 
494 B2 9$: BUG_ CHECK LOCKMGRERR, FATAL; Granted lock is not master copy 
0047 07 10$: ; Have a master or local copy lock. The lock is still on the 
944 38 3; timeout queue. 
00000002 b0e7 10 .1F NE CA$_MEASURE 
OOOOOO00'EF 06 ayes Y} e CAPASSCL _DLCKSRCH 
004D ig , 
0040 14 ASSUME LYBSK_GRANTED EQ 1 
0040 15 ASSUME LKBSK_ CONVERT EQ 0O 
Bnee 16 ASSUME LKBSK-WAITING EQ -1 
59 «4 Boer 18 CLRL R9 : Indicate no timestamp assigned 
36 AB 9S 8 4F 19 TSTB LKBSB_STATE(R6) : Is this lock on the Sonueraten queue? 
09 1s 052 0 BNEQ $ : No, must be on wait queue 
OOA2 3 ire 1 BSBW SEARCH_CVTDLCK i Yes, search for a wo deadlocks 
50 05 0057 : TSTL RO ; Was a deadlock found? 
70) 3=6©19 0059 BLSS 50$ : Yes, and we must exit for now 
7B 14 Oa 8 : BGTR 60$ ; Yes, but we can search again 
05D § 11$: 3; We didn't have a conversion deadlock so now we have to search 
05D 3 19° vaultipte resource deadlocks. R.. i registers and determine 
050 8 3 aap is available for use. that normally references 
05D 9 3 - Presa _SYSTIME should be at IPLS HWCLK. However, we can tolerate 
90 9 > the race Condition of referencing if at IPL$_SYNCH here. The 
D : result would be to incorrectly conclude that the bitmap is in use 
th ¢ 3; which would cause us to retry later. 
54 OCA 3 5D 4 MOVZWL LEBtL _PEDIRG) OA 3 a process index 
1 1 $ 5 BEQL ; Must be a master copy 
54 saat? ede dD § MOVL Ho eget] PCBVECCR4],R4 ; Convert to PCB address 
4 D 68 MOVL PCBSL 3; Get EPID 
4 DE oF 8 MOVAL PCBS ~focKareiRe) , R4 Meke R4 point to lock queue in PCB 
58 14A6 OD 76 40 12$: MOVL LKBSL pripins) R8 ; Get EPID 
57 00000000'GF 0D 7A 241 :14$: MOVE GOLCKSGL_P RCMAP ,R7 : Get address of process bitmap 
A —E oO $) 4g MOVL SP,R1 3; Save current stack pointer 
0 OO'GF C 4 4 ADDL3 G*LCKSGL_EXTRASTK,- ; Compute upper bound for stack 


ae ork 


an) 


50 st aa * 3 
00000004 * GF C AO 


14 
OA 
Q0000000'GF 08 rt 


00000000 ' GF 
OE 


$2 
67 FBA7 OO 67 2? 


0099 


55 eoseggee "er 


58 aes ell 


> 
o 


Oooo 
SOD DOD DOOD > 
D NV TF COCO COCO GO COI OO OHI FMM MSD OPAOAAAOSASOOOWM POO OO 
MEW OS ONO UE WIN 9 OD NAME UO O OONOUNS 


SNS SSNS PAA AA AAA A MMIII 


SOOOCOCOCOOCOOoSooCooooSo 
oonowon 
OWONAULE WN — O OONAUS WIN —O O00 


POOOOOOAOAOAAAIAAOOOOOW 


DOOOCOCOOCOOCOOOSOOSOOOOOCOOoOoOSooO 
o 4 


—=w—om 
©+0 00 0.090000 000000000000 00 


0-009 
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241:1 SYS.SRCJDEADLOCK.MAR; 1 


G*EXESGL_INTSTKLM,R11 3 patioy LCKSGL_EXTRASTK plus one 


ADOL #LOCKFRARE,R11 3; lock frame) 
MOVAQ G*LCKSGQ_BITMAP_EXP,RO ; Get address of bitmap expiration 
CMPL  12(RO),G"EXESGQ-SYSTIME+4; Compare with local expiration time 


BLSSU $ ; Bitmap is available 

BGTR $ ; Bitmap may be in use 

CMPL 5120? .G°ERESER_SYSTING ; Compare low order parts 

BLEQU 0$ ; Bitmap is available 

; Bitmap may be in use; need to send a message to get a timestamp. 
3; Note that if we really send a message that we won't return here 

; but will exit deadlock detection for now. 

JSB G*LCKSSND_TIMESTAMP_RQST 

BRB 40$ :; In case we do return with a timestamp 
CLRQ (RO) 3; Indicate bitmap has been reused 
aheck R4 

MOVC #0,(R7),#0,-8(R7),(R7) =; and clear it 

POPL R4 

; Register usage at this point: 

: RG Address of PCB+PCBSL_LOCKQFL (except master copies) 
: R6 Address of original CKB to perform search for 

3 R? Address of process bitmap 

3 R8 EPID of process we are doing search for 

3 R9 Indicates if we have a timestamp 

: R10 Current stack pointer 

: R11 Top of useable stack (there is some extra space) 
BSBW LCKSSRCH_RESDLCK ; Search for multiple resource deadlocks 
TSTL RO ; Was a deadlock found? 

BLSS LCKSOLCKEXIT : Yes, and we must exit for now 
BGTR 60$ ; Yes, but we can search again 


3; No deadlock was found. Remove this lock from the timeout queue. 


REMQUE LKBSL_ASTQFL(R6),RO ; Remove from queue 
BICW #LKBSA_TIMOUTQ,- ; Clear status bit indicating 
LKBSW_STATUS (RA) ; lock was on timeout queue 


; See if we need to do another search (the same lock may still 

3; be at the head of the timeout queue or another lock oor have 

: also timed out). We do this here instead of in TIMESCHDL because 
; there are other exits from this routine that leave a timed out 

; lock at the head of the queue so that a search can be restarted 

3 a second from now. 


; Get address of List head 


MOVAL bb CKSSt TINGUTO.RS 3 n 

MOVL R5),R ; Get first entry on List 

CMPL sR’, RO : Is List empty? 

BEQL LCKSOLCKEXIT 3; Yes 

CMPL LKBSL_DUETIME(R6),- 3; No, has this one timed out? 
L“EXESGL_ABSTIM 


K—LOMWMMOOWZSEl KCK ITO MMOCOOZ Sl KOK TOM ICOMOS SE ACK TO *MOOOZ Sr ACH TOMO 
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SYS.SRCIJDEADLOCK.MAR;1 
+ Ng prescott 3; No, exit 

BRW 3; Yes, y \ another deadlock search 
¢ LCKSDLCKEXIT:: 


6 ace” #*°M<RS ,R6,R7,RB,RI,R10,R11> 


nn 
04-000" 
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earch for conversion deadlocks 


we 
m 
ro 
zm 
<- 


te 
FUNCTIONAL DESCRIPTION: 


This routine searches for conversion deadlocks and selects a victim 
if one is found. A conversion deadlock is one in which a conversion 
request has a granted mode incompatible with the requested mode 

of another conversion request ahead of it in the conversion 

queue. For exampie, assume there are two P 

locks on a resource. One PR lock tries to convert to EX and 
therefore must wait. Then the second PR lock tries to convert to 

EX and it too must wait. However, the first will never get genes 
since its requested mode (EX) is incompatible with the second's 

eentes mode (PR). The second will never get granted since 
t's waiting behind the first. 

To find conversion deadlocks it is sufficient to check all locks 

ahead of this lock on the conversion queue to see if their 

requested modes are incompatible with this lock’s granted mode. 


CALLING SEQUENCE: 
BSBW SEARCH_CVTDLCK 
INPUT PARAMETERS: 


R6 Address of LKB to search for conversion deadlocks 
R9 Contains 0 indicating no message buffer 
OUTPUT PARAMETERS: 
e: | 
No deadlock found 


1 


, Deadlock found and another search may be performed 


Deadlock —_ or may not have been found but don't 
perform another search vanoetenesy Typical 
reasons are master copy was on this system 
so another deadlock search cannot be repeated 
immediately (or we will find the same one again) 
or we needed to allocate a CDRP but failed to 
allocate pool. 


RO pet cod 


SIDE EFFECTS: 


RO - R2 and R5 are destroyed if a deadlock is not found 
RO - R8 are destroyed if a deadlock is found 


DOCOCOCOCOOOCOOCOOOOOOOSOOSOOSOOCOOCOOOCOCOOOO OOOO OOOOOOOOOOO 
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Bete Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Gs Ge Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Be Se 


DODODOOOOOWO OOO OOOO OODOODOOOOOWVO OOOO OOODOODODOOOOOOOO0O0O000N0 


SEARCH CVIDLCK: 
ADDL 


es Bes Bon Bon a fon a fons Ba Dona Dona oa Doma Doma Dona a Bona na Dona Dn Di a nk Dn Do Don Bens is Bn Doe Bn Bes Dn Den Oe Dns De Dn Dns ee ee ee ee ee el | 
PUPP SUSI BE BS EE BE EE NNI NWI NNW PPOPOPININPOPNIY 2 OO OO ee OC 
OO NOAUL WO OD NAUE WN 9 ODONAUE WN 9 OO NAME WW OOONAUS WIN 0 


ANNAANAANAAAN.AAANAAANAAAAWNAAANAANAA ANNAN A AAAI NAAN AANA ANNAN 


C1 9 LKBSL_RSB(R6) ,- ; Point to head of conversion queue 
C #RSBSC_CVTQFL,R5 

Oh 60 MOVZBL LKB$B_GRMODE (R6) ,R2 ; Get granted mode of current lock 

pe 1 61 MOVL R6,R 3; Address of current lock 

D 1 $6 108: MOVL LBS, _SOBL(R1) RI ; Get previous lock in queue 

D1 0109 6 CMPL R1,R ; Reached the queue head yet? 

13. 010C 64 BEQL ; Yes 

C2 O10E 65 SUBL #LKB$L_SQFL,R1 ; Back up to start of LKB 
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50 34 A1 9A O11 6 MOVZBL LKB$B_RQMODE(R1),RO : Get requested mode 
E9 O000'CF42 50 €E0 115 $ BBS RO U*CCKSCOMPAT. FELCR2I, 108 3 Branch if compatible 
11C &3 ; Have a conversion deadlock. The victim is the one with the lower 
11¢ 0 ; deadlock priority. R1 and R6 contain the two LKB addresses. 
11¢ 71 ; Either one gf poss locks could be a master cop F get the two 
ie ie ; deaalock priorities out of either the PCB of the LKB. 
55  00000000'EF 0 116 74 MOVL L“SCHSGL_PCBVEC,RS5 ; Get address of PCB vector 
50 OC Al § 1 75 MOVZWL LeBSL_PID(RI) .RO ; Get process index 
0B 1 127 6 BEQL 0$ 3; Master copy 
50 $508 4 129 7 MOVL (R5)CROJ,RO 3; Get PCB address 
52° 010 £0 D¢ p 28 ROVL BCBSL_DLCKPRI (RO) .R2 : R2 has pri. for lock in R1 
52s 24 Al 0 134 $ gps: MOVL LKBSL_DLCKPRI(R1) ,R2 ; R2 has pri. for lock in R1 
50 OC A6 ¢ 138 1 308: MOVZWL LKBSL_PID(R6) ,RO ; Get process index 
0B 1 13C Hf BEQL 40$ ; Master copy 
50 6540 00 1 MOVL (RS) CROJ,RO ; Get PCB address 
53 010C CO. Sis 84 MOVL PCBSL_DLCKPRI(RO),R3 =: R3 has pri. for Lock in R6 
04 11 O14 85 BRB 50$ 
53 24 A6 00 nee 86 40$: MOVL LKBSL_DLCKPRI(R6) ,R3 ; R3 has pri. for lock in R6 
53 36 D1 irs 35 50$ CMPL R2,R3 ; Compare the deadlock priorities 
03 1& 0150 389 BGEQU 60$ ; Branch if orig. lock is victim 
s% 3) Ww B18 90 MOVL R1,R6 ; Other lock is victim 
53 Be 015 391 60$: CLRL : Indicates R6 has LKB address 
O1F5 0 0157 38 BSBW LCKSBREAK_DEADLOCK ; Break deadlock; returns status in RO 
05 015A 9 RSB 
0158 94 
50 D4 0158 $02 80$: CLRL RO 3; No deadlock found 
05 0150 96 RSB 
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~SBTTL LCKSSRCH_RESDLCK = Search for resource deadlocks 
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p++ 
; FUNCTIONAL DESCRIPTION: 


This routine searches for multiple resource deadlocks and selects 
a victim if one is found. A multiple resource deadlock is one 

n which a circular List of processes are each waiting for one 
another on two or more resources. For example, assume process A 
locks resource 1, process B locks resource 2, then process A 

locks resource 2 (and waits), and finally process 8 locks 

resource 1 (and waits). A and B are each waiting for the other on 
different resources. This type of deadlock must involve two or 
more resources unless one process locks the same resource twice. 
(Normally, it is senseless for one process to lock the 

same resource twice but this does make sense if the process 

is multi-threaded). 

To find multiple resource deadlocks a recursive algorithm is used. 
The basis of this algorithm is for each process with a lock on 

the current resource blocking the current lock, find any waiting 
locks that process has and recursively see what processes are 
blocking those locks. As we do this, see if we can find a path 
back to the current process. In other words, we are travelling 

a graph of — processes searching for a path back to our 
starting point. f we find one, then the stack consists of a 

List of waiting processes and locks forming a deadlock. The lock 
with the minimum deadlock priority is selected as a victim 

and we return. Multiple deadlocks are handled by calling this 
routine again. 

To prevent this algorithm from pn si on a deadlock cycle that 
doesn't include the original process (R8), a bitmap representing 
each process in the system is used, Whenever a particular 
process is visited, the at gm me ay bit is set. If the bit 

is already set, then we won't visit that process after all. Note 
that when we leave a process, the corresponding bit is NOT cleared. 
The result of this is that deadlock cycles not involving the original 
process are not found sy¢*2- Instead, ee are ignored by this 
deadlock search, but will be found Later when a lock in that 
erase times out. The reason for not clearing the bitmap is that 

this dramatically improves the worst-case behavior of the 
algorithm by not visiting a process if it has been visited before. 


CALLING SEQUENCE: 
BSBW LCKSSRCH_RESDLCK 
INPUT PARAMETERS: 


few le lee) ele ee le eww lal wl wl wl el ol elo eo leleleleleleleleleolelelelelelelelelololelelelolelolelelolel ele ele la ale! o) 
MMMM MMMM MMM MMM MMMM MMM MMM MMMM mMMmM Mmmm mMmMmmmMmmmmmcmmmcrnecnencvievncvicvicvie yy 
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RG Address of PCB + PCBSL_LOCKQFL (to determine who is blocking) 
7 (only is not a master copy) 
8 R Address of LKB (to determine who is blocking) 
9 R Address of process bitmap (one bit for each process in system) 
0 R8 EPID of process that initiated search (our starting point) 
1 R9 Address of input message or zero 
¢ £10 Bottom of deadlock stack 
i R11 Top of useable stack (so that we don't overflow the stack) 
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OUTPUT PARAMETERS: 


RO Completion code: 
= No deadlock found 
= Deadlock found (normal) 
-1 = Deadlock found; master copy was on this system 
so another deadlock search cannot be repeated 
immediately (or we will find the same one again) 


vO4~500" ick 


v>P 
Do 
Dr 
m 

“oOo 


SIDE EFFECTS: 


R1 is ty if a deadlock is not found 
RO - R&B are destroyed if a deadlock is found 


Note: The following are the register conventions used by this routine. 
RO and Ri may be used as scratch registers. Each time this 
routine is called (recursively) R2 - R6 are saved on the stack. 
R7 = R11 remain constant during the recursive calls. Registers 

are used as follows: 


R Maximum lock mode computed so far 

eR Address of queue header in RSB 

RG Address of PCB + PCBSL_LOCKQFL (address of queue header) 
R5 Address of LKB blocking LKB in R6 

R6 Address of LKB to determine who is blocking 

Address of process bitmap 

R8 Ultimate EPID we are searching for 

R9 Address of input message or zero 

R10 Bottom of deadlock stack 

R11 Top of useable stack 


Note that there are several assumptions made in the code about 

what registers are used for what and the order in which they 

are saved on the stack. Specifically, the loop that selects 

the deadlock victim assumes both the number of resisters saved 

and their relative positions on the stack. See also the 
definition of the symbol LOCKFRAME at the beginning of this module. 


STATE_ERROR: 
BUG _CHECK LOCKMGRERR, FATAL 


RESDLCK:: 

PUSHR = #*M<R2,R3,R4,R5,R6> ; Can't change this without also 
5 _—— value of LOCKFRAME and 

; deadlock resolution code 


TRIE TRIE LO IO Iee ere rerererererererererere rer 
zz 
GN 


PWN OOONOUS WOO 


LCKSSRCH 


WO 00000000 0000090000 00 Co CD CD Co 


WONAW 


007C 8F 8B 


; First run through all locks waiting ahead of this lock 

; maximizing the requested modes and checking all locks 

; incompatible with the current ‘‘maxmode’’. If this lock is 
; on the wait queue then we do the wait queue first and 

; the converison queue next. If this lock is on the 

; conversion queue then we do only the conversion queue. 

; Later we'll do all the granted locks. 


ASSUME RSBSL_CVTQFL EQ RSBSL_GROFL+8 
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LCKSSRCK_RESDI.CK = Search for resource d Pate : 241:11 LEYS SRCTDEADLOCK MAR: 1 
196 § ASSUME RSBSL_WTQFL EQ RSBSL_CVTQFL+8 
34 “6 9A 0166 14 ite bees RQMODE (R6) ,R2 ; Re = this lock’s requested mode 
50 } C1 iF ADDL tet ty tA ee ; R35 = Addr. of cvt. queue header 
20 Ni} 3 19f 13 TSTL RSBSL-~CSID-RSBSL_CVTQFL(R3) ; Verify resource is mastered here 
EA 1 172 18 BNEQ STATE_ERR 
Ie J DISPATCH LKBSB_STATE(R6) , TYPE=B, PREF IX=LKBSK_,- 
174 521 <CONVERT,10$>,- 
10 ; § SUAITING 38>~ 
DE 11 17 4 BRB STATE_ERROR ; Shouldn't have Locks in other states 
08 co 185 : 5 5$: ADDL PB RS ; Wait queue - point to wait queue hdr 
56 DdO Q1 § 10$ MOVL R6,R5 ; RS will point to other LKB's 
5150 2 ; in front of the one pointed to by R6 
3¢ AS «OOO O16 2$2 20$ MOVL LKBSL_SQBL(R5),R5 ; Get previous lock on state queve 
55 Di 018A 530 CMPL R5,R 3; Reached head of queue yet? 
03 12 018D 531 BNEQ 15$ ; No 
OOBA 31 O18F 5 ¢ BRwW 50$ ; Yes 
38 8 8=6C2 b138 533 15$: SUBL #LKBSL_SQFL,R5 ; Back up to point to start ef LKB 
36 AS 691019 534 CMPB LKB$B_STATE(RS),- 3: Is lock in an SCS state? 
FF 8F 0198 535 SLKBSK WAITING 
EA 19 Q19A 238 BLSS : Yes, ignore 
34 A5 9A 019C 53 MOVZBL LKB$B_RQMODE(RS5) ,RO ; RO = requested mode 
52 »b0 aA 238 MOVL R2,R1 3 Save old maxmode 
O1A 26 3 Maximize lock modes (in RO and R2) and see if this lock (R5) is 
O1A 541 ; incompatible with (the previous) maxmode. The maximization function 
Q1A 276 3: is a simple arithmetic maximum except if the two modes are CW and PR. 
OIA 54 ; In that case the maximum of CW and PR is PW. PW is incompatible 
BA ate ; with everything either CW or PR is incompatible with. 
50 91 ae 546 CMPB RO,R2 ; Current mode greater thar maxmode? 
20 13 QO1A6 54 EQL 25$ 3; No, they're equa 
OC 1A QO1A8 548 BGTRU 21$ ; Yes, compute new maxmode 
50 91 OQIAA 549 CMPB RO, #LCKSK_CWMODE 3; No, is current mode CW? 
19 12 OIAD 550 BNEQ 25% : No, maxmode = R2 
52. 91 1AF 551 CMPB Re #LCKSK_PRMODE ; Yes, is maxmode PR? 
14 12 01B2 33 BNEQ : § : NO, maxmode = R2 
OA 11 pee 55 BRB 2s 3; Yes, new maxmode is PW 
52. 91 1B6 554 218: CMPB Rg #LCKSK_CWMODE 3; Is maxmode CW? 
OA 12 0189 233 BNEQ 238 : No, maxmode = RO 
0 91 O18B 2$ CMPB R #LCKSK_PRMODE ; Yes, is current mode PR? 
5 12 018 5 BNEQ 23§ : No, maxmode = R 
4 90 OIC 38 228: MOVB Sy yten POE Aa : Have CW and PR; maxmode = PW 
3 11 1¢ 5 BRB 25$ 
0 90 +5 $9 23$: MOVB RO,R2 ; Maxmode = RO 
50 €0 iff 6¢ 25$: BBS RO,- ; Branch if compatible with 
87 1CE 56 W*LCKSCOMPAT _TBLCR1),20$; saved maxmode 
OA €0 OICF 64 BBS #LCKS$V wODL CRALK - ; Branch if this lock should not be 
28 AS 1p 65 LKBSW_FLAGS(R5) 208 > considered as blocking other locks 
1D4 6 ; Have a lock incompatible with wiry i First see 
1D4 68 ; if the process owning the lock (in R5) is the process we 
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104 $9 ; started with (in R8). If it is, then we have pemes ff not, 
104 ; then see if the process has any other wa ede locks. 
104 7 3; does then | have to recurse down a level. f it dicen t then 
13 f 3; we can continue at this level. 
046 «CE 104 74 BBC #LKBSV_MSTCPY,- ; Branch if not master copy lock 
11 20 AS Dg 578 LKBSW.STATUS(AS) 28S - 
58 14 a5 o 1D 6 CMPL tKBSL EPID(RS), Rb ; Have a master copy; deadlock found? 
A 1 10D 7 BEQL 45$ ; Yes 
56 5 DO Q1DF 8 MOVL R5,R6 3 No 
O0000000'GF 16 \E¢ 7 JSB ne SRCHDLCK ; Send a message to keep looking 
+ } 1E 0 BRB 0$ 3; Continue on this RSB 
50 OCA C O1EA 1 288: MOVZWL LKBSL_PID(RS), ; Get process index 
54 Q0000000'FF40 DO OTEE § MOVL @L*SCRASGL Pcavec(RO3, R4 ; Convert to PCB address 
58 64 A4 D1 O1F6 CMPL geste EPIB(R4),R i: Is this the original process? 
4D 613 mice 584 BEQL 45$ ; Yes, have a deadlock 
86 67 50 €E2 OFC 585 BBSS RO,(R7) ,20$ ; Br. if we've already done this process 
54 0104 C4 DE 0200 286 MOVAL PCBSL_LOCKQFL(R4) ,R4 ; Point to lock queve header 
56 04 A4 00 0205 58 MOVL 4(R4),R6 ; Get Last lock ist 
56 (CO A6 DE 0209 588 30S: MOVAL =LKBSL_OWNQFL(R6) ,R6 ; Point to start of LKB 
56 55 Di 0200 589 CMPL R5,R6 ; is ~~ the one we have in R5? 
28 «13 0210 590 BEaL = 35 ove on to next one 
0 13 331 DISPATCH LKB$B_STATE(R6), tyPesé, PREF IX=LKBSK. 
031 238 <CONVERT, 32$>,- 
0 \§ 594 <WAITING, 32$>- 
021 595 > 
FF67 = 31 bsit 596 BRW 20$ 
09 €0 O21F 597 328: BBS #LCKS$V_NODLCKWT,- :; Branch if this lock should not be 
19 28 A6 0221 598 LKB W FLAGS (RG) 35$ ; considered as waiting for other locks 
50 50 A6 00 0224 599 MOVL §LKBSL=RSB(R6) ,RO i Get RSB for this loc 
38 AO be 0228 600 TSTL RSBSL “CSID(ROS : Is it managed elsewhere? 
os 7 8 2B «601 BEQL 4$ ; No, recurse here 
00000000'GF 16 § B O06 JSB “*LCKSSND_SRCHDLCK : Yes, send a messoge to keep searching 
08 11 QO 60 BRB $ 3; Continue with this PCB 
5B SE D1 0235 604 348: CMPL SP,R11 ; Is there enough stack to recurse? 
OF 1F 0238 605 BLSsu 45$ 3; No, have to assume deadloc 
FF25 30 0 ts 606 SBW LCKSSRCH_RESDLCK ; Yes, recursively search 
56 44 A6 DO 023D 607 35$: MOVL LKBSL_OWNQBL (R6) ,R6 3; Get previous lock 
54 56 Di 0241 608 CMPL R6,R4~ ; Reached end of List? 
+ 12 0244 609 BNEQ 30$ ; No, get next lock in PCB (inner Loop) 
FF3D 0=—s 331 ; re o19 40$: BRW 20$ : Yes, get next lock in RSB (outer Loop) 
OOA3S 31 8 res $16 45$: BRW DEADLOCK_FOUND 
024C 614 50S: ; Reached the queue header. Back up R3 to point to the previous 
4C 615 ; queue header in the RSB. If R3_ is pointing to the granted 
4C $18 3 queue, then we are done with this ices and we continue with 
4C 61 ; the granted queue. Otherwise, we repeat this loop for the 
re: o18 3 conversion queue. 
eee 2 4C 620 SUBL #8,R3 ; Back up R3 one queue header 
55 CBA 9 4F = 621 MOVAB “LEBa _SQFL(R3),R5 ; Prepare to process that queue 
56 = :*10 + D 33 6 ¢ MOVL 16(SP),R6 ; Restore R 
1 C 5 6 ADDL3 PRSBSL GROFL,- ; RO = address of granted queue 
50 50 Ag 59 624 LBS U GROFE = RO 
50 5 D1 5C = 625 CMPL ; Have we reached the granted queue? 
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Ss 44 6 § BNEQ 40$ 3; No, repeat for conversion queue 
3 8 Now repeat a similar procedure for all locks on the granted 
et ? 3 : queus whose granted mode is incompatible with the maxmode 
61 631 
55 38 AS. 00 61 6 § 60$: MOVL LEBSt SOFL(R5) .RS 3 Get next lock in granted queue 
53 $3 D1 65 6 CMPL 3; Reached end of queue? 
3 68 634 BEQL Bog" Yes, no deadlock 
3 C 6A 635 SUBL #LKBSL_S Back up to point to start of LKB 
50°35 AS 9A 6p 5 é MOVZBL LKBSB GaMObE TRS) -R ranted mode 
E9 0000'CF42 50 £0 1 6 BBS RO,W°CC KSCOMPAT “fetcr23. jot" Branch if compatible 
0A £0 0278 6 : BBS PLEKSV NOD CKBLR ; if this lock should not be 
E4 28 AS os en o73 LKBSW_ FLAGS(R ) 608 3 considered as blocking other locks 
027D 641 ; Have an incompatible lock on she ,orented queve. First see 
027D 60g ; if the process young the lock R5) is the process we 
027D 64 3 started with (in R8). If it 5, then we have deadlock. If not, 
027D 644 ; then see if che process has any waiting locks. i 
027D 645 ; does then we have to recurse down a level. If it doesn't then 
8 Pp o4§ 3 we can continue at this level. 
04 £1 0270 648 BBC #LKBSV_MSTCPY,- ; Branch if not master copy Lock 
11 2A AS Oe7F 649 LKBSW_ STATUS (RS) 63$ 
58 14 AS D4 0282 630 CMPL LKBSLEP EPID( (R5) RB ; Have a master copy; deadlock found? 
; Yes 
56 55 00 $588 O56 MOVL R5,R6 3 No 
00000000 ' GF 1 aces $3? he +h ae _SRCHDLCK ; pose Fdbcpnag Ps. to eee Looking 
50 Oc AS 5 0293 655 63$: MOVZWL LKBSL_PID(RS),RO : Get process laden 
C8 13 0297 656 BEQL 60$ ; Ignore system owned locks 
54 Q0000000'FF40 DO 0299 657 MOVL haart, marae R4 ; Convert to PCB address 
58 64 A4 D1 O2A1 658 CMPL preset E PIBCR4 3 Is this the original process? 
13° 02A5 659 65$: BEQL DEADLOC EK FOUN : Yes, have a deadl 
67 50 €E2 O2A? 660 BBSS ; Br. if we've already done this process 
54 0104 C4 DE O2AB 661 MOVAL Pebst "OBCKOFL (RG), R4 Point to lock queue header 
04 AS DO 0280 666 MOVL 4(R4)7R6 Get last lock ist 
56 CO A6é DE 0284 663 70$: MOVAL -LKBSL _OWNQFL (R6) ,R6 Back up to start of _LKB 
psee eee serch LKB$B_ STATE (RO), i Back : EF IX=LKBSK_, 
att 666 <CONVERT,71$>,- 
ogBe 667 <WAITING, *71$>- 
9D «si 8 ¢ BRB 60$ 3; Done with this PCB 
09 ~=«EO BBS #LCKSV_NODLCKWT,- ; Branch if this lock should not be 
19 28 A6 3 LKBSW_ FLAGS (R6) ‘75$ 3 considered as waiting for other locks 
50 50 A6 D 676 MOVL LKBSL RSB(R6) ,RO : Get RSB for this loc 
BAO D D 67 TSTL  RSBSL- “tee eROS : Is it managed elsewhere? 
1 674 BEQL 3; No, recurse here 
00000000'GF 16 675 JSB ot SRCHDLCK :; Yes, send a message to keep searching 
SH 978 BRB ys : Continue with this PCB 
58 D1 DA 67 CMPL ; Is there enough stack to recurse? 
10 «1F 678 BLSSU SEARLO FOUND : No, have to assume deadlock 
FE8O0 30 DF 67 BSBW PERSSRCH™ RESDLCK : Yes, recursively search 
56 44 46 00 E 0 MOVL Lest. OUNOBL (RE) , R6 3 Get previ ous lock 
co 3 E 1 BRB ; Repeat inner loop - Note we don't 
E 682 ; check for end of queue since there 
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90$: CLRL 
SEARCH_EXIT: 
POPR 
RSB 


RO 


#*°M<R2,R3,R4,R5,RO> 


a ERIE GAT WNT UBER 


SYS.SRCIDEADLOCK.MAR; 1 
; must be at least one granted Lock 
; No deadlock found 
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DEADLOCK_FOUND: 

: Come here if we found a deadlock. The stack consists of 
a series of stack frames, one for ooes lock involved in 
the deadlock. Each stack frame consists of the 5 saved 
registers (R2 = R6) and a return address. Note that in 
each stack frame the saved R6 goings to the lock and the 
saved R4 points to the respective PCB lock queue (if the lock 
is not a master copy. In principal, only the first and Last 
frames could represent master copy locks (the frame that started 
this search and the frame that ended it). 
The stack frames are bounded by R10 and the current SP. 
The following diagram shows the stack with three frames. 


v04~000" LcKss 


DRA 
m 
“no 
an 


SP => tee-------- ----- 


pooeeececceccoccoeccecce 
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R10 => 


We will now search the frames looking for the process with 

the smallest deadlock priority. When found, tie respective 

deadlock or ser tty will be compared with that in the input message 

(if any). The objective is to find the best candidate for a deadlock 
victim. After the deadlock is broken the stack will be trimmed 

back so that we will return to 

the original caller. Note that a deadlock priority of zero 

causes an immediate exit from the loop. Register usage will be: 


RO Current deadlock priority 

R1 Current lock frame pointer 

R Minimum deadlock priority, so far 

a Best victim frame, so far 

R4 Address of PCB lock queue (current frame) 
R9 Address of input message or zero 

R10 Bottom of stack (start search here) 

SP Top of stack (end search here) 


Note that the following code makes a number of assumptions 
vegerenng the order of registers saved on the stack and their 
contents. 


MMMM MMMM MMMM MMMM MMMM MMMMMMMMMMmmMMMmMmMmmMmmMmmMmMmmmMmmmimmmmmmmmmrcrnicrcn 6 
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SUBL3 #L OC FRAME ,R10,R1 : 
MNEGL #1.R : 
MOVL  16(R1),RO : 
BBC #LKBSV ost cry - : 
LKBS$W_STATUS(RO) ,25$ 
MOVL KBSL i! LCKPRI CROS. RO; 
BRB &$ 
MOVL (R1),R4 
MOVL PcosL *DLCKPRI-PCBSL -Locxartths 
Boot ; saa : 
BGEQU ay ; 
Ova = RO, R2 : 
SUBL § #LOCKFRAME,R1 : 
CMPL = R'1,SP : 
BGEQU 208 ; 
BRB 40$ 
MOVQ = RO, R2 ; 


DEADLOCK .MAR; 1 
urrent frame petater 
ise "best’’ deadlock erierity 
address 

Branch if not master copy 
Get deadlock priority from master copy 
ey to PCB lock queue 

‘ Get current deadlock pri. 
zero - have best victim 
el th a I priority with 

his frame becomes "best so far’ 


Reached top of stack yet? 
No, repeat for next frame 


Move priority and frame pointer 


; Compare lowest deadlock priority so far (R2) with thet in the 
: input message (if any) and select the lower. 


3; stack frame. 
TSTL Rg 3 


R3 points to “best” 


BEQL 45$ 3; No 
CMPL Eg LAMSON, CRORE IA ; Compare priorities 


BGTRU 
; The one on the stack was lower; 


16(R3) ,R6 
CMPB = LKBS$B_TYPE(R6),- 
#DYNSC_LKB 
CLRL RS ; 
BRB 60$ 
; The one in the message was lower 
MOVa LKMSGSL_VCTMLKID(R9),R2 ; 
; Break the deadlock 


The one in the message was lower 
R3 points to the relavant frame. 


; Get address of LKB 
; Make sure it’s a LKB 


Indicate we have an LKB address 


Get victim lockid (R2) and CSID (R3) 


BSBB LCKSBREAK_DEADLOCK ; Returns status in RO 


SUBL3 #LOCKFRAME,R10,SP ; Remove all frames but one from stack 
BRB SEARCH_EXIT ; Return to original caller 


BUG_CHECK NOTLKB, FATAL 
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-SBTTL LCKSBREAK_DEADLOCK = Break a deadlock 


:59:1 AX/VMS Macro v04-00 Page 1 


a) ate? 


;++ 
: FUNCTIONAL DESCRIPTION: 


This routine is called to break a deadlock. The victim lock 

has already been selected and may be passed to this routine 

as either an LKB address or a lockid. Note that the specified lock 
may not even exist on this system (as either a master or process copy). 
Specifically, the following cases are handled: 


o The victim lock is a local copy on this system. In this 
case it is cancelled locally. 

o The victim lock is a process copy on this system. It is 
cancelled locally, but a message is sent to the master system. 

° nee case sends a message to the process system for that 
ock. 


If the lock is cancelled here, then we also determine if it 
is necessary to send a message to redo the original search. 


; CALLING SEQUENCE: 
BSBW LCKSBREAK_DEADLOCK 
INPUT PARAMETERS: 


R2 Lockid of process copy of lock foaty if R3 is not 0) 
R3 CSID of process copy of lock (or 0 indicating R6 has 
an LKB address) 
R6 Address of LKB ny if R3 is 0) 
R9 Address of message buffer (or 0 indicating no message) 
; OUTPUT PARAMETERS: 
RO Completion code: 
1. = Deadlock found (normal) 


-1 = Deadlock found; master copy was on this system 
so another deadlock search cannot be repeated 
immediately (or we will find the same one again) 

; SIDE EFFECTS: 

RO - R8 are not preserved 


PS SSS eT NNN 
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4 
4 LCKSBREAK_DEADLOCK:: 
53 os 4 TSTL R3 : Do we have a lockid or LKB address? 
. Se 2 BEQL 208 ; LKB address 
50 00000000'GF 00 MOVL G*CLUSGL_CLUB,RO ; Get CLUB address 
60 AO 53) «D1 035 5 CMPL R3,CLUBSC_LOCAL_CSID(RO): Is it the CSID of this system? 
if 5 5 BNEQ 308 ; No 
54 D 6 5 MOVL R2,R4 : Yes, move lockid 
00000000 * GF 18 6 5 JSB SALGESCVT_1D_TO_LKB ; and convert to LKB address 
OF 50 «OE 6 5 BLBC RO,5$ ; No LKB to cancel; still redo search 
04 €0 6 5 BBS #LKBSV_MSTCPY,- ; Verify not master copy 
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OC 2A Ab 6 36 LKBSW_STATUS(R6) , 108 
4 ; DISPATCH LKBS$B_STATE(R6), TYPE=B,PREFIX=LKBSK_,- 
71 38 ma Po + dala 
4 ¢ SWAITING, 6 $>- 
7% ~=#=611 4 $6 5$: BRB 75$ ; Lock is not waiting; still redo search 
8 4 be 10$: BUG_CHECK LOCKMGRERR,FATAL; Victim Lock is master copy 
uf 6 208: ; Have a LKB address. See if it's a master copy 
.% €1 0381 68 BBC #LKBSV_MSTCPY,- ; Branch if not master co 
12 2 ng 0383 869 LEBSW. STATUS (RG) ,60$ ” 
26 4 A6 DO 0386 870 MOVL LKBSL-REMLKID (R65 ,R2 3 Get process lockid 
5 58 A6é dO baer a MOVL LKBSL_CSID(R6) ,R3 ; and CSID 
O88 8 30$: ; Send a message to the process system informing it that it 
OaKe are ; has a deadlock victim 
QOO0O00000'GF 16 O38E Hi JSB G*LCKSSND_DLCKFND ; Send message 
50. sO cf 0394 877 MNEGL #1,RO ; Set status 
05 0397 878 RSB 
0398 879 
0398 880 60$: ; Here is where we actually break the deadlock. If the lock was 
0398 881 3; a new lock request, then it is dequeued. If the lock was a 
0398 Ht ; conversion, then it is regranted at its old lock mode. In either case 
0398 88 ; the completion status (in the LKSB) is SS$_DEADLOCK. 
0398 884 ; Note that the lock database may change as a result 
0398 885 ; of the victim lock being dequeued (or regranted). For example, 
0398 886 3; when a lock is dequeuved, it is possible for other locks to 
0398 887 ; be granted (possibly the original lock that started the deadlock 
0398 888 3 search). 
0398 889 ; The victim lock (R6) may be either a local or process copy lock on 
0398 Bey ; this system. Get master lockid and CSID and save for later 
O398 4 ; in order to decide if the original search must be repeated. 
00000002 0398 398 IF NE CA$_MEASURE 
QOOOO000'EF 06 039 894 INCL L*PASS$GL_DLCKFND 
OO0C°*M0"EF D6 039E 895 INCL L*PMS$GL~DEQ_LOC 
O3A4 538 » ENDC 
QO3A4 97 
59 DD Q3A4 898 PUSHL 9 : Save RY 
Hi A6 OD $h8 444 PUSHL  LKBSL_LKID(R6) : Save lockid 
50 0 A6 00 A 00 OVL LKBS$L_RSB(R6) ,RO ; Get RSB address : 
38 AO «DP «(O3AD «(901 PUSHL RSBS$L~CSID(ROS : Save CSID of system mastering Lock 
| Fae 380 Ong L 65$ 3 It's this system 
04 AE 54 Ag 4 $85 3 MOVL LKBSL_REMLKID(R6) ,4(SP) ; Save remote lockid instead 
54 B? 904 65$:  MOVL SAL CRSA CANCEL ,R4 : Set CANCEL flag 
57 O€0A 8F 3C A 905 MOVZWL #SS$ DEADLOCK,R? : Set error status 
FC3E* 30 F 306 ) LCKSBEQLOCK 3 Cancel lock request 
0230 8F BA C2 90 POPR #*M<R4,RS RID : Restore CSID (R4) and LKID (R5) and R9 
0124 BF 30 BI O3C6 908 CMPY = sRO., #SS$_INSFMEM ; Were we unable to allocate a CDRP? 
gh 13 03¢B 9 BEGL ; Yes, redo searc 
30 50 =—E9 4 319 BLBC RO,DEQ_ERROR ; Error = bugcheck 
DO 912 70$: ; If chis was a purely local search (R9=0), then we are done. | 
} 
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Mave itd LCKSBREAK_DEADLOCK = Break a deadlock -SEP-1984 REE SYS.SRCJDEADLOCK.MAR; 1 . (7) 
D 317 ; If the original lock that started the search was the victim, 
D 14 $ en it has been removed from the timeout queue. Ctherwise, it 
: dF $ Le eer Ene timeout queue and we will start another deadlock 
; search for it. 
319 ; If this was a distributed search (R9<>0), then it is necessary 
218 ; to redo the original search unless the original lock was the victim. 
8 D 91 ; The lockid and CSID of the original lock is in the message. 
D 920 : RG and R5 contain the lockid and CSID of the Lock chosen as 
DO Os «921 : victim. Note that in both cases we are referring to the master 
pS 3 é ; lockid and CSID. 
59 b8 DY 4 4 TSTL R9 ; Was this a local search? 
28] D 5 BEQL §u$ ; Yes, exit 
52. 14 A9 7D D4 =926 MOVQ LKMSGS$L_ORIGLKID(R9),R2 ; Get original lockid (R2) and CSID (R3) 
50 00000000'GF »DO0 Bape 927 MOVE G*CLUSGD_CLUB,RO ; Get address of CLUB 
60 AO > Be) 8 DF 928 CMPL R3 CLUBSC_LOCAL_CSID(RO); Is the CSID this system? 
08 12 0363 929 BNEG 728 > No 
5 D4 O3E5 930 CLRL fe 3; Yes, use zero for local CSID 
sm S$. Of tH 931 72$: CMPL R3,R4 : Do CSIDs match? 
05 12 O3EA 932 BNEQ  75$ : No 
55 52 D1 Q3EC 93 CMPL rf R5 ; Do lockids match? 
0B 13 Beet oRe BEQL 80$ ; Yes, victim was original lock 
O3F1 936 75$: ; Must redo the original search (as long as we have a message (R9) 
bard oan 3 with the original CSID and Lockid) 
52 59 DO O3F1 939 MOVL R9,R2 ; Move address of message 
06 13 03F4 940 BEQL «80 
O0000000'GF 16 O3F6 941 JSB G*LCKSSND_REDO_SRCH ; Redo the search 
50 01 DO O3FC 4) 80$: MOVL #1,R0 
05 O3FF 94 RSB 
0400 944 
0400 945 
0400 946 DEQ_ERROR: 
0400 947 BUG_CHECK LOCKMGRERR,FATAL ; Lock was granted or other dequeue 
0404 948 : error 
0404 949 
0404 950 
0404 951 
0404 328 
0404 95 END 


| 
| 
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Symbol table “SEP=1984 03:41:11 ([SYS.SRCIDEADLOCK.MAR; 1 (7) 
ASE = FRFEEFFFF LKBSL_OWNQBL = 00 bee 

S$SDISPL = 990 1 LKBSL_OWNQEL = 40 
SSGENSW = 1 LKBSL_PiD = oC 

$HIGH = 00000000 LKBSL_REMLKID = 8 4 

SSLIMIT = 00000001 KBSL_RS = 00 0 

$tOw = FFFFFFFF CKBSL~SQBL = 000000 | 
SSMNSW = B00 0008) LKBSL_SQFL = 000000 
SSMXSW = 00000001 LKBSM_TIMOWTO = 8 04 
BUGS$_LOCKMGRERR eereneee XX 08 LKBSV_MSTCPY = 00000004 
BUGS$_NOTLKB eeereeee 8 6X LKBSW_FLAGS = 4444 8 

CAS_MEASURE = 00000002 LKBSW- STATUS = Q002A 

CLUSGL_ CLUB eeereeee = X 02 LKMSGSL_ORIGLKID 2 8 sae) 

CLUBSL-LOCAL_CSID = 00000060 LKMSGSL_-VCTMLKID 2 0 $f 
DEADLOCK_FOUND 44 FR 08 LKMSG$.-_VCTMPRI z 4543 4 

EQ_ERROR 0004 9 R 0 LOCKFRA = 00000018 
DYNSC_LKB = 009000 PCBSL_DLCKPRI = 0000010C 

YNSC = 00000036 PCBSL_EPI = 44446 4 
EXESGC_ABSTIM eeereeee =X O¢ PCBSL_LOCKQFL = 00000104 
EXESGL_INTSTKLM eeeeeeee KX 0 PMS$GC_DEQ_ LOC eeereeee 02 
EXESGQ-SYSTIME teeeeeee =X 0 PMSS$GL_DLCRFND eeeeeere = X 02 
LCKSBREAK_DEADLOCK 0000034F RG 0 PMS$GL_DLCKSRCH aeteeees 02 
LCKSCOMPAT_TBL tenereer = X 0 RSBSL_CSID = 00000038 
LCKSCVT_ID-TO_LKB tertneee = X 0 RSBSL_CVTQFL = 00000018 
LCKSDEQCOCR tereeeee = X 0 PSBSL_GROFL = 00000010 
LCKSDLCKEXIT OO0000F4 RG 0 RSBSL-WTQFL = 00000020 
LCK$GB_STALLREQS teeeeeee =X 0 SCH$GC_PCBVEC eeeeeere = X 02 
LCKS$GL_EXTRASTK eeeeeeee =X 02 SEARCH_CVTDLCK 000000F9 R 02 
LCKSGL_PRCMAP eeeeeeee = =X 8 02 SEARCH EXIT QOOO02ZEA R 02 
LCK$GL-TIMOUTQ eerenere =X ¢ SS$_DEADLOCK = QOOOOEDA 
LCK$GQ"BI TMAP_EXP eeneeere KX 0 SS$~INSFMEM = 000001 gs 
LCKSK_CWMODE = 00000008 STATE_ERROR 0000015E R 02 
LCKSK_PRMODE = 0000000 
LCKSK_PWMODE = 00000004 
LCKSM_ CANCEL = 00000002 
LCKSSEARCHDLCK 00000000 02 
LCKSSND_DLCKFND tereeeee xX 02 
LCKSSND_GRANT tenerere xX 02 
LCK$SND_REDO_SRCH eeeerere =X 36 
LCKSSND_RMVDT eerereee xX 8 
LCKSSND_SRCHDLCK eenereee = § X 
LCKSSND-TIMESTAMP_RQST tererere = X 0 
LCKSSRCA_RESDLCK 00000162 0 
LCK$V_NODLCKBLK = 0000000A 
LCKS$V_NODLCKWT = 009 $ 9 
LKB$B_GRMODE = 5 
LKB$B_RQMODE = 000 4 
LKBS$B_ STATE = 00000036 
LKBSB_TY = 989 000A 
LKB$K~ CONVERT = 9000080 
LKBSK_GRANTED = 00000001 
LKBSK_WAITING = FEFFFFFF 
LKBSL_ASTOFL = $00 000 
LKB$L_CSID = 0005 
LKBSL_DLCKPRI = 24 
LKB$L_ DUET IME s 18 
LKBSL_EPID = 1014 
LKBSL_LKID = 00000030 
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PSECT name Allocation PSECT No. Attributes 
» Os « 00000000 : 0 ¢ 0.) NOPI USR CON 
SABSS 00000000 0°) , Be ft 1.) WOPTE USR CON 
LOCKMGR 00000404 1028.) 02 2.) NOPIC USR CON 
be ecw eee see eens oom ae ee Som me > 
! ; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 0000: 00-08 0:00:01.10 
Command processing 120 00:00:00.70 BOR 8-08 
Pass 407 Bo BO 03°S 00:00:53.94 
Symbol table sort 0 bs BY eee BL 
Pass 2 185 4 4 bs 3 
Symbol table output 11 00:00:00.1 00:00:00.1 
Psect synopsis output 3 eb $8 13 00:00:00.02 
Cross-reference output BB: 80 597% 00:00:00.00 
Assembler run totals 762 0:00:21.36 00:01:21.05 


The working set Limit was 1800 pages. 
84198 bytes (165 pages) of virtual memory were used to buffer the intermediate 


19be BS:atstt ESySes 


rrr 
Oaon 
rer 
Z2z2=2 


OSHR EXE 


ode. 
There were 90 pages of symbol table space allocated to hold 1437 non-local and 50 local symbols. 


953 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
23 pages of virtual memory were used to define 21 macros. 


See ee Se eee Set eee eet ee Ee eH 


Macro library name Macros defined 
-$255$DUA28: CSHRLIBICLUSTER. MLB; 1 
“es 2250U A28:CSYS.OBJILIB.ML 8 
$255$DUA28: aye IBISTARLET. ALB; 2 6 
TOTALS (all Libraries) 15 


1544 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:DEADLOCK/OBJ=OBJ$:DEADLOCK MSRC$:DEADLOCK/UPDATE=(ENH$: DEADLOCK) +EXECML$/L1B+*SHRLIB$:CLUSTER/LIB 


ro V04-00 
ADLOCK .MAR; 1 


RD 


ep NOEXE NORD NOWRT NOVEC SYTE 
OSHR EXE RD 


WRT NOVEC BYTE 
WRT NOVEC BYTE 
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